home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CRESC / Variations / gen-variants-fc < prev    next >
Lisp/Scheme  |  1996-12-31  |  674b  |  14 lines
  1. gen-variants-fc seed number symbol-pattern
  2.  
  3. One of a series of functions able to generate a set of variations from a symbol-pattern. The 'theme' symbol-pattern is always stated first in the output followed sequentially by number of variants.
  4.  
  5. (setq mel (gen-variants-fc 0.12 3 '(a b c d)))
  6. --> (a b c d d a b = b a b a a b = d))
  7.  
  8. The processing function find-change replaces repeated symbols occuring in each variant but not across variant boundaries, example: (a b c d d c b c c = = d d b = =)
  9.  
  10. Should you wish to remove the 'theme' from the output statement use the nthcdr function:
  11.  
  12. (setq mel1 (nthcdr 4 (gen-variants-fc nil 3 '(a b c d))))
  13. --> (a c = a b a = = d c d a)
  14.